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CHECKPROT Queue protection checks 17=3007 138% $3: 39:66 AX-11 Tage 32 V4.0-7 
14-Sep-1984 12:36:58 JOBCT i° CJCHECKPROT. 4 2:1 


: 1 0001 MODULE CHECKPROT(ZTITLE ‘Queue protection checks’ 
;  g 0008 6 IDENT = 606° 
3 B88 d= 

13 4 004 1 BEGIN 
3 5 0005 1 
3 6 BR0e zz 
$ 5 sat 4 1 BESS ESESSSES ESSEC SECT CCCP PPC cree cece cre cece ici ccc i cect citi iii ii iiiie) 
: 7 36 ra 
; 9 0009 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
; 10 0010 1 !* DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. * 
; 1} Bat) : :* ALL RIGHTS RESERVED. * 
3 ‘ft ® 
3 ig $O18 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND copice * 
3 14 0014 1 !* ONLY IN ACCORDANCE WITH S OF SUCH LICENSE AND WITH THE * 
; 15 0015 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THI ANY OTHER * 
3 16 8018 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
; 17 001 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
; botS : hs TRANSFERRED. * 
P :* * 
; 0 bose 1 [fe ~~ INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
3 1 0021 1 !* SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
: $3 b05§ : - CORPORATION. * 
$ is & 
3 24 Bose 1 !® DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
3 25 0025 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
; = BOSS 1 !® * 
3 27 0027 1 !« * 
3 28 0099 LL eR RRR 
3 9 0029 1! 
3 $3 0030 1 
3 31 0031 1 !+¢ 
3 32 OOas 1! FACILITY 
s #35 0033 1: Job controller. 
3 34 0034 1! 
: 35 0035 1 ! ABSTRACT: : : ; ; 
; 0036 1! This module contains the routines that interface to the SCHKPRO service 
. a 0037 1! for queue protection checking. 
: 38 0038 1! 
3 39 0039 1 ! ENVIRONMENT: 
: 60 0040 1! VAX/VMS user and kernel mode. 
ee * 0041 1 !<=- 
3 4g 0042 1! 
3 rt Bpez } AUTHOR: M. Jack, CREATION DATE: 16-Feb-1982 
s 65 045 1 | MODIFIED BY: 
; 646 0046 1! 
> 6F 0047 1! v03-001 MLJ0114 Martin L. Jack, 23-Jun-1983 4:57 
; 6 0048 1! Changes for job controller baselevel. 
3 49 0049 1! 
$ 50 0050 1 Ie 
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CHECKPROT Queue protecti hecks 18.4 -1984 59:44 AX-11 Bliss-32 V4.0-74 
vOes000 ee eee ee op7188e 93:30588 1 SREa CHECK 


00 14-Sep-1984 JOBCTL.SR PROT.B52;1 

; $ 1190 ! GLOBAL ROUTINE CHKPRO(ACCESS,OWNER,PROTECTION)= 
E 64 1186 1 !+4 

; 65 11035 1! 

; © 1104 1 ! FUNCTIONAL DESCRIPTION: 

3 44 1192 } This routine executes a call to the SCHKPRO service. 

; 69 1107 1 ! INPUT PARAMETERS: 

~~ 1108 1! ACCESS - Desired access, 

: 71 1109 1! OWNER - Object ownership. 

: i 1339 : } PROTECTION - Object protection. 

ie 1i¢ 1! IMPLICIT INPUTS: 

; ie ANZ ! } MBX - Pointer to buffered mailbox message. 
3 77 1115 1 =! OUTPUT PARAMETERS: 

. 11146 1! NONE 

; tiga» 

; 80 1118 1 3! IMPLICIT OUTPUTS: 

3 81 1119 1! NONE 

; 1159 1! 

; 85 1121 1 | ROUTINE VALUE: : 

; & Sten 3 a True if access is granted, false if denied. 

; 68S 1125 1! 

; 86 11246 1 ! SIDE EFFECTS: 

co. ae 1125 1! NONE 

; 8 1126 1! 

; 89 1127 1 !<= 

:; 90 1128 1 

; 91 1129 2 BEGIN 

; P 1130 2 LOCAL : ; 

: 93 1131 2 ITMLST: BBLOCK(64], ' $CHKPRO item List 

; 1132 2 RIGHTS: vECcTORC2); ! Rights vector 

: #95 1133 2 

; 1134 2 

$ +44 M132 § OPER privilege implicitly grants all types of access. 

: 99 1137 2 IF .BBLOCKCMBXCACM$Q_PRVMSK], PRVS$V_OPER] 

; 100 1138 2 THEN 

s 101 1139 2 RETURN TRUE; 

: 102 1140 § 

; 103 1141 

3 ies 1128 2 : Construct the item List and call SCHKPRO to check the access. 
; 106 1144 RIGHTSCO] = .MBXCACMSL_UIC); 

s 07 1145 RIGHTS(C1) = 0; ? 

: 108 1146 ITMLSTCO,0,16,0] = 4; ! Desired access 
; 109 1147 ITMLSTC2,0,16,0) = CHPS_ACCESS; 

s 110 1148 ITMLST $°0°35°03 = ACCESS; 

: 111 1149 ITMLST(8,0 0] = ; 
: 112 1150 ITMLSTC12,0,16,0) = 8; ! Requestor's privileges 
: 113 1151 ITMLSTC14,0,1 0} = CHP$_PRIV; 

s 116 1136 ITMLST 16.0.3 0) = MBXCACM$Q_PRVMSK]; 

3 115 115 ITMLST 2-0. “0 = 0: 

3; «6116 1154 ITMLST(C24,0,16,0) = 8; ' Requestor's UIC 
: 117 1155 ITMLST 6.8.18-6 = CHP$_RIGHTS; 

: «118 1156 ITMLST .0,32,0) = RIGHTS; 


14 
CHECKPROT Queue protection checks 15. -Sep- 9:44 AX-11 Bliss-32 V Pa 4. 
voes000 mts 1982 93: sre ae 


0 14- ~hee- 6:58 JOBCTL. CHECK VpROT. + 2;1 (3). 
: 120 11 8 ITMLSTL36,0,16,0] = 4; ' Object’s UIC 
: 121 11 ITMLSTL38,0,16,0J = CHPS —— 
 T 1161 ITMLSTL44,0,32,0] = 0; 
: 124 1396 ITMLSTL48,0,16,0] = 4; ! Object'’s protection 
; 125 116 ITMLSTL50,0,16,0] = CHP$_PROT; 
: 126 1164 ITMLST(52,.0,32,0] = PROTECTION; 
. ter 1165 ITMLSTL56,0,32,0J] = 0; Se 
; 128 1166 ITMLST(60,0,32,0] = 0; ! Trailing zero 
; 129 1167 
s 130 1168 
s 13) 1169 SCHKPRO(ITMLST=ITMLST) 
s 32 1170 1 END; 


-IDENT \V04-000\ 
~PSECT COMMON,NOEXE, OVR,2 


| 
| 
| 
| 
.TITLE CHECKPROT Queue protection checks 
00000 DIAG_STORAGE_BASE: 

| 

} 


LK 0 
00000 DIAG_TRACE: 

LK 96 
00060 DIAG_COUNT: 

-BLK 96 
000CO DIAG or ‘ 
000C4 WORK_AREA: ¥ a 
QOOFO SNDJBC COUNT : 132 
00174 GETQUI_COUNT: 

-BLK 40 
0019¢ SNDACC_COUNT : 28 


LK 
00200 DIAG ee 


00200 FLAGS: .BLKB 
00204 IMAGE _DUMP STSFL 


-BCKB 
00208 THIS_SYSiD: 
BLKB 


0020€ “BLKB 
00210 CUR_TIME: 


00218 HOURLY TIME! 
00220 HOURLY _PARARS: 
00234 SYMBIONT. “COUNT 
00238 QUEUE _REFERENCE_COUNT: 
BLKB 4 


001B8 SNDSMB_COUNT: | 
| 
| 
| 


vo ea NO £00°™ 
Oo ™m 


— Queue protection checks 
v04-000 


13-22 Sep-1984 9:44 AX-11 Bliss-32 V4.0-7 Pp 5 
1ansep-1o8e f2580.88 | Fodecte saeicneckeRor as2;1 an 


0023C MBX eee 
BHP BBE oo, SE 
00248 ei FREE POUEUES 
00270 NONAST wont QUEUE: 
00278 BCB_FREE UST: 
0027C BCB_ACTIVE hare 
00280 GQL_FREE “UST: 
00284 GQL ACTIVE LIST: 
00288 OPEN_GETQUI LIST: 
0028C PROCESS bath LIST: 
00290 SYMBIONT_CONTROL: 
00294 SPARE -AREA: 
Q002A0 REMOTE_REQUEST_L 
002A8 QUEUE ibis 
00280 QUEVE_LOCK at 


00288 RSP: -BLKB 
002C0 JBC PRIORITY: 


~BLK 
002c4 JBC_PRIVILEGES: 
002CC JBC_QUOTAS: 
0030 -BLKB 
00310 JBC_UIC:.BLKB 
00314 QUEDE_FAB: 
00364 QUEUE_RAB: 
003A8 QUEVE_NAM: 
00408 QUEUE_XAB: 
-BLK 
00460 QUEUE_RSA: 
-BLK 


cer ene 
~~~ 


mr 


ig > te a wig wor dera # ene 


co 
oO 


68 


0055F ~BLK 
00560 QUEVE_ALG: 
00564 QUEUE MBF: 


00565 *BLKB 
00568 ACCOUNTING FABS: 
-BCKB 


00570 
00578 
005¢8 
0060C 
0066C 


00768 
0076C 


007BC 
00800 
00860 


0095F 
00960 


00980 
009F4 
009F8 
00A00 
00E00 
00E00 
00E20 
00E20 
00E26 
QOE2A 
00E32 
00E33 
00E 34 
QOE3A 
00E44 
00E45 
00E4B 
O0E4C 


CHECKPROT Queue protection checks 1.22 Sep-1984 59:44 AX-11 ss-3 
v04~000 , 12280 8= 188 $3:3 eck 


:36:58 JOBCTL SREICHECKPROT 2:1 
ACCOUNTING_RABS: 

.BCKB 8 
ACCOUNT_FAB_A: 


-BL 80 
ACCOUNT_RAB_A 

«BL 68 
ACCOUNT_NAM_A: 

-BL 96 
ACCOUNT_RSA_A: 

~BLRB = 255 

-BLKB 1 
ACCOUNT_FAB_B: 80 
ACCOUNT_RAB _B: 68 
ACCOUNT_NAM _B: 96 
ACCOUNT_RSA_B: 

-BLRB 255 

-BLKB 1 
DIAG_FAB: 

° 80 
DIAG_RAB: 

° 68 
MBX_CHAN: ‘ 
MBX_IOSB: P 
MBX BUFFER: 

10 


VALUE _STORAGE BASES. 
ITEM_ pReseN: 

VALUE -seiav1 BASE. 
VALUE _ACCOUNT ING MESSAGE : 
VALUE “ACEBUATING TYPES: 
VALUE “aFiene TIME : 

VALUE “ALIGNMENT PAGES: 

VALUE BASE PRIORITY: 
VALUE_BATCH_INPUT: 
VALUE_BATCH OUTPUT: 

VALUE BUFFER COUNT: 
VALUE_CHARACTERISTIC_NAME : 
VALUE -CWARACTERISTIC. NUMBER : 
VALUE_CHARACTERISTICS: 


Be te ee Be ee Se 


CHECKPROT 
v04-000 


Queue protection checks 


F 14 


15-Sep-1984 23:59: 
1anee= ihe 93:3058 


00E5C 
00E62 
00E68 
OOE6C 
00E70 
00E78 
00E7E 
00E82 
OOE8C 
OOES8E 
OOE SF 
00EB3 
OOEB9 
OOEBF 
OOECS 
OOEC9 
OOECA 
OOECB 
OOECD 
OOECF 
00EDO 
00ED6 
OOEDA 
QOEE2 
OOEES 
OOEEE 
OOEFO 
01204 


44 
58 


AX-11 Bliss-32 V4.0-74 
JOBCTL.SRCJCHECKPROT .B52;1 


-BLKB_ 16 
VALUE CHECKPOINT DATA: 


6 
VALUE Cli: 
-BLKB 6 
VALUE CPU DEFAULT: 
VALUE CPU Fae 
VALUE DESTINATION QUEUE : 
VALUE pevice NAME : 


L 
VALUE _ENTRY a * 


-BL 
VALUE _ENTRY NUMER OUTPUT: 


L 
VALUE -EXTEND QUANTITY: 
VALUE FILE. COPIES: 


VALUE_F ILE IDENTIFICATION: 


VALUE_FILE SETUP MODULES: 
VALUE _FILE SPECIFICATION: 
VALUE FIRST PAGE: 
VALUE_FORM_ DESCRIPTION: 
VALUE _FORM LENGTH: 
VALUE_FORM_MARGIN_ BOTTOM: 
VALUE _ FORM RARGIN. LEFT: 
VALUE _FORM RARGIW. RIGHT: 
VALUE _ FORM MARGIN. TOP: 
VALUE _F ORM NAME: J 
VALUE _FORM NUMBE 
VALUE _FORM: 

VALUE “Foil SETUP MODULES: 
VALUE _FORM STOCK: 
VALUE_FORM WIDTH: 
VALUE “GENEAIE. TA 


-BLK 
VALUE _J0B poe tes 


R: 
4 
8 
g 
6 
2 
R 
9 
-BLK 1 


CHECKPROT Queue protection checks 1-22 -$ep-1984 23:59:44 VAX-11 B -32 
v04-000 opr 1084 f2i3e.88 tic 


14-Sep- 


01205 
01206 
0120C 
012E2 
012€6 
Q12EA 
012F4 
012F8 
O12FE 
01306 
0130C 
01312 
01318 
0131C 
01322 
01328 
0132E 
01334 
0133A 
01340 
01346 
0134C 
01352 
01353 
01359 
01350 
01363 
01369 
0136D 


v4 

2:36: NOBCTLeS aeic CHECKPROT. " 2;1 

VALUE _JOB LIMIT: 

VALUE _JOB NAME 

VALUE _JOB RESET. MODULES: 

VALUE _ JOB SIZE. MAXIMUM: 

VALUE _JOB Size. MINIMUM: 

VALUE _JOB_ STATUS “QuTPUT: 

VALUE_LAST PAGE: 

VALUE LIBRARY. SPECIFICATION: 

VALUE _LOG QUEUE: 

VALUE_LOG_ SPECIFICATION: 

VALUE _NOTE : 
BLK 

VALUE_OPERATOR_REQUEST 

VALUE OWNER UIC: 

VALUE_PAGE_SETUP 

VALUE _PARAMETER_ 

VALUE _PARAMETER_ 

VALUE _PARAMETER_ 
-BLK 

VALUE _PARAMETER_ 

VALUE _PARAMETER_ 
BLK 

VALUE _PARAMETER_ 

VALUE _PARAMETER_ 
-BLK 

VALUE_PARAMETER_ 
»BLK 

VALUE_PRIORITY: 
~BLK 

VALUE PROCESSOR: 

VALUE_PROTECTION: 

VALUE QUEUE : 

VALUE QUEUE FILE SPECIFICATION: 

VALUE -RELATIVE_ PAGE: 

VALUE _RESERVED_INPUT_1: 


MODULES: 
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CHE CERROT Queue protection checks 15-Sep-1984 9:44 AX-11 Bliss-32 V4.0-74 Page 9) 


a=Sep=1984 92:36:38 Edoacr. sRedcne ckPROT B92; 1 (3) 


0136€ VALUE RESERVED, INPUT 2: 

01370 VALUE_RESERVED_INPUT_3: 
01374 VALUE RESERVED INPUT. 64: 
0137A VALUE. RESERVED_OUTPUT_1: 
01384 VALUE RESERVED OUTPUT_2: | 
0138E VALUE_SEARCH STRING: 

01394 VALUE_SCSNODE_NAME : 
0139A VALUE_WSDEFAULT: | 
0139C VALUE_WSEXTENT: 


: 2 
0139E VALUE_WSQUOTA: : 
013A0 VALUE _STORAGE _END: 
.BLKB~ 0 
JBC$_CLOSEOUT= 266328 
JBC$~NOCMKRNL= 272388 
JBC$~NOOPER= 72532 
JBC$~NOSYSNAM= 272404 
JBC$_OPENIN= 266392 
JBC$~OPENOUT= 266400 
JBC$~READERR= 266416 
JBC$"WRITEERR= 266448 
.EXTRN SYSS$CHKPRO 
.PSECT CODE,NOWRT,2 
0000 00090 -ENTRY CHKPRO, Save nothing : 1100 
5E BB AE 9E 00002 MOVAB wg’ P, SP ; 
ac 0g 55 00000000" a I to ‘Sei 
50 01 bd 90012 MOVL #1. RO - : 1139 
6E 0c AO DO 00016 15: MOVL 12(R0) RIGHTS : 1144 
04 AE D4 OO01A CLRL = RIGHTS+ *. > 1145 
08 AE 00010004 8F DO 0001D MOVL #65540, > 1146 
OC AE 04 AC 9E 00 5 MOVAB ACCESS. HIME ST+4 > 1148 
10 AE D4 OOO2A CLRL  ITMLST+8 > 1149 
14 AE 00030008 8F DO 00 D MOVL hi96e16 ITMLST+12 > 1150 
18 AE . a tH ROVAB ocnO AT TMLST+16 $ 1128 
SE Ceol 1) ete 18 
28 «AE D4 00049 CLRL MLST+ : 1157 
2c AE 000C0004 8F DO 0004C MOVL byebe36 ITMLST+36 : 1158 
0 AE 8 AC 9 90094 MOVAB OWNER, {[TMLST+40 > 1160 
4 AE D4 00059 CLRL ITMLS £444 > 1161 
38 AE 00000004 8F D0 0005¢ MOVL #851972, ITMLST+48 > 1162 


eee Se Be Se Se SHS e Se FH Se Se FH Se Se BH Se Se Se Se BH Se Se Se Se SH Se Se SH Se ee Se SH Se ee Se Se Se Se Se seas 


14 

HECKP Q i heck b- =1984 259: AX-11 Blisg-32 V4.0-74 Page 10 
vonsO08. sage coipeamn guea nape 12888138 §3:33:88 FAME Ob sgc ae Mbalr hs. ge 4f 
CAE OC AC 9E 00064 MOVAB PROTECTION, ITMLST#52 : 1164 
’ OF AE SE 8866 Cena’ TIMUR S+bG 1165 
08 AE 9F 0006C PUSHAB ITMLST : 1169 

000000006 00 01 FB OO06F CALLS #1, SYSSCHKPRO ; 
04 00076 RET : 1170 


; Routine Size: 119 bytes, Routine Base: CODE + 0000 


Queue protection checks =1984 23:59:44 AX-11 Bliss-32 V4.0-74 Page 
1382 93:33:68 JOBCTL-SRCICHECKPROT.B 2;1 . 
GLOBAL ROUTINE CHECK_R_ACCESS(SMQ,SJH)= 
!ee 
! 
FUNCTIONAL DESCRIPTION: 
This routine checks whether the requestor has R access to the specified 
ob in the specified queue. OPER privilege and — access to the queue 
mplicitly grant R access. 


INPUT PARAMETERS: 
SMQ - Pointer to SMQ. 


SJH = Pointer to SJH. 
! IMPLICIT INPUTS: 
MBX - Pointer to buffered mailbox message. 


OUTPUT PARAMETERS: 
NONE 


IMPLICIT OUTPUTS: 
NONE 


see | VALUE: 


rue if access is granted, false if denied. 
SIDE EFFECTS: 
NONE 


SMQ: REF BBLOCK, ! Pointer to SMQ 
SJH: REF BBLOCK; ' Pointer to SJH 
Test for R access to the job. 
if CHKPRO(%B8'0001', -SJHCSJHSL_UICI, - SMQCSMQ$W_PROTECTION]) 
RETURN TRUE; 


Test for E access to the queue. 
if CHKPRO(%B'0100", .SMQCSMQS$L_OWNER_UIC], .SMQCSMQ$W_PROTECTION]) 
RETURN TRUE; 


0009090909 09 SII NN SSI NNN NN NIAAA AAA AA AAU BBB BEE EE EWA 


FALS 
END; 


Be Se Oe Se Se Oe Se Se Be Se Se Be Ge Be Se Se Se Se Se SH Se Se Se Ge Ge Ge See Ge Se Se Se Se Se Ge Se Se Se Se Se Se Se Se eee ee Se Se Se Sees ae 
ee ee et ee DD ee ae ed ad od wd 
a a i a a ak a A a at at a at = = = 2 SS SS 2 2 2 SS SS SS Vs 2 SS I 8 1 2 2 2 Ls SS YS YS 


PRIPQPIAPININYAPIPMNPYIPYPYINYINYINININININININININIDD — 2 tt 2 tt ot 
MNO 2 3 3 3 3 SS Ss BQO OOOO 000 000000000 000000000 00009 0909 0909 II NINN NNN 


NRO OOWNAUE WIN (OOD NAUES WN $8 ODNOAU EWN O ODNOAUE WN OOODNOUS WH 


=NININIMINININPININI|PININININININININPYININID) 2 2? 
wv 
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CHECKPROT Queue protection checks 15-Sep-1984 ; 759:44 AX-11 Bliss-32 V4.0-74 
v04-000 14-Sep-1984 12:36:58 JOBCTL.SRCJCHECKPROT.B32;1 
0004 000 .ENTRY CHECK_R_ACCESS, Save R2 
52 04 AC pd 0 MOVL si 
F 0104 ¢ ¢ MOVZWL 260(R2), =(SP) 
5 08 at D 08 MOVL ; H, RO 
0144 DD OOOOF PUSHL 4(RO) 
1 OD 13 PUSHL @# 
FFOF CF FB 1 CALLS #3, CHKPRO 
13 : 1A BLBS RO 
7E 0104 C C 1 MOVZWL : bcR ), =(SP) 
0D0 DD USHL (Re) 
DD PUSHL # 
FFSC F FB ty a #3, _ 
4 E BL RO, 2$ 
0 1 BO 1$: MOVL #1. RO 
4 RET 
50 D4 00034 2$ CLRL = RO 
04 000 RET 


; Routine Size: 55 bytes, Routine Base: CODE + 0077 


Pete Se Se Se Se Fe Fe Se Se Se Fe Se Se Se Se Ge 


14 
CHECKPROT Queue protection checks 18-5 
v04-000 14-Se 


; } ? } ? } GLOBAL ROUTINE CHECK_W_ACCESS(SMQ)= 

; «189 1225 1 !44 

; 190 1 § 1! 

; «6191 1 1 ! FUNCTIONAL DESCRIPTION: 

: 136 1228 1! This routine checks whether the requestor has W access to the specified 
; #19 1229 1! ueue. OPER privilege and E access to the queve implicitly grant 
: 194 1230 1! access. 

; 195 1231 1! 

; 196 1 ¢ 1 ! INPUT PARAMETERS: : 

3: 197 1 1! SMQ - Pointer to SMQ. 

; 198 \§ 4 1! 

3; 199 1235 1 ! IMPLICIT INPUTS: 

3 soy 1$39 : } MBX - Pointer to buffered mailbox message. 
: soe 1534 1 ! QUTPUT PARAMETERS: 

; 20 1239 1! NONE 

: 204 1240 1! 

; 205 1241 1 =! IMPLICIT OUTPUTS: 

; 206 1 $s 1! NONE 

; 207 1243 1! 

; 208 1244 1 ! ROUTINE VALUE: 

s or 1245 1! True 1i access is granted, false if denied. 

; 210 1246 1! 

s ei 1247 1 ! SIDE EFFECTS: 

3 sig 1248 1! NONE 

: 21 1249 1°! 

3s 626 1250 1 !-- 

: 205 1251 1 

s 26 1526 § BEGIN 

; 2 125 MAP : 

: 218 1254 2 SMQ: REF BBLOCK; ! Pointer to SMQ 

; 219 be 

: 220 1256 

3 $s} \$20 : Test for W access to the queue. 

: $$7 1$33 2 it CHKPRO(%B'0010", .SMQCSMQSL_OWNER_UIC], .SMQCSMQ$W_PROTECTION)) 
s 22d 1261 $ RETURN TRUE; 

: 226 1908 § 

s ger 126 

: $$6 1s8e : Test for E access to the queue. 

; 23 1366 IF CHKPRO(%B'0100", .SMQCSMQ$L_OWNER_UIC], .SMQCSMQ$W_PROTECTION)) 
3 3 1268 RETURN TRUE; 

; $3 1269 

: 34 1270 

; 235 1271 2 FALS 

: 236 1272 1 END; 


0004 0 
AC D0 0 


oo 
mo 


.ENTRY CHECK_W_ACCESS, Save R2 
MOVL  SMd, R2 


oo 
oo 
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Queue protection checks 


51 bytes, 


; Routine Size: 


CHECKPROT 
v04-000 


N 14 

CHECKPROT Queue protection checks 15-Sep-1984 23:59:44 AX-11 Bliss-32 V4.0-74 Page 15) 

y04=000 are ee 188s F3i8e:8e | Bact Shes cRecKBROT 632.1 (6) 
; . } te ! GLOBAL ROUTINE CHECK_E_ACCESS(SMQ)= ; 
; 240 1275 1 44 : 
: 24) 1976 1 | | ; 
3 4 127 1 ! FUNCTIONAL DESCRIPTION: : 
3; 26 1278 1! This routine checks whether the requestor has E access to the specified > 
; te : ° : } queue. OPER privilege implicitly grants E access. : 
3 46 1281 1 =! INPUT PARAMETERS: 3 
> 247 1 8 1! SMQ - Pointer to SMQ. : 
$ 48 1 . 3 $ 
3 49 1 e 1 ! IMPLICIT INPUTS: 3 
3 29 : a : MBX - Pointer to buffered mailbox message. : 
; 26 1 § 1 ! OUTPUT PARAMETERS: F 
; 5 1288 1! NONE F 
3 54 1289 1! F 
; 55 1290 1 ! IMPLICIT OUTPUTS: : 
: 256 1291 1! NONE : 
3 57 1292 1! : 
; 258 1293 1 | ROUTINE VALUE: ; 
3 366 : 33 } True if access is granted, false if denied. : 
: 261 1296 1 | SIDE EFFECTS: | ; 
: 262 1297 1! NONE 3 
3; 263 1298 1! F 
> 264 1299 1 !<- 3 
3; 265 1300 1 | : 
3 $96 1301 § BEGIN 3 
: 267 1336 P 3 

; 268 130 § SMQ: REF BBLOCK; ! Pointer to SMQ 

: 269 1304 

: 270 1305 2 | 

: 4 1308 § Test for E access to the queue. 

; 305 1308 3 if CHKPRO(%B"0100", ~SMQCSMQS$L_OWNER_UIC], .SMQCSMQ$W_PROTECTION) | 

3 $i 1310 2 RETURN TRUE; | 

: 276 1311 2 

; 277 131§ 2 

; 278 13135 2 FALS 

; 279 1314 1 END; 

0000 00000 ENTRY CHECK FAACCESS, Save nothing : 1373 | 

50 AC go 0002 MOVL R : 1308 | 

7E 01 4 CO 3C 00006 MOVZWL g60iR0), -(SP) : | 

0D0 CO dd 00008 PUSHL 08(RO) 3 

04 DD O0000F PUSHL 4% 3 

FFO9 CF 03 FB 00011 CALLS #3, CHKPRO : 

04 50 €9 00016 BLBC RO, 1$ : | 

50 01 D0 00019 MOVL #1, RO ; 1310) 

04 SES RET 3 
50 D4 0001D 1$: CLRL RO 3 1314) 


Eee 


a roe HEH: HESSSG RSL Sect OS 


04 0001F RET 


; Routine Size: 32 bytes, Routine Base: CODE + 00E1 
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GLOBAL ROUTINE CHECK_D_ACCESS(SMQ,SJH)= 


'e4 


i 
sated DESCRIPTION: 
This routine checks whether the requestor has D access to the specified 
= in the specified queue. YPER privilege and E access to the queue 
mplicitly grant D access. 


INPUT PARAMETERS: 
SMQ - Pointer to SMQ. 
SJH - Pointer to SJH. 


IMPLICIT INPUTS: ‘ 
MBX - Pointer to buffered mailbox message. 


IMPLICIT OUTPUTS: 
NONE 


rei VALUE: 


i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i 

i QUTPUT PARAMETERS: 
NONE 
i 

i 

i 

i 

True if access is granted, false if denied. 
i 

i 

i 
be 


305 
06 SIDE EFFECTS: 
NONE 
08 
, 
BEGIN 
MAP : 
SMQ: REF BBLOCK, ! Pointer to SMQ 
SJH: REF BBLOCK; ' Pointer to SJH 


SBR RE EE EWAN NIN NINN 3 
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Test for D access to the job. 
IF CHKPRO(%B'1000", .SJHCSJHSL_UIC], .SMQCSMQ$W_PROTECTION]) 
RETURN TRUE; 


: Test for E access to the queue. 
if COPROCED"SE0" -SMQCSMQ$L_OWNER_UIC], .SMQCSMQ$W_PROTECTION]) 
RETURN TRUE; 


AUS WN OO VDONOUESWN—O 


FALSE 
END; 
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; Routine Size: 


CHECKPROT 
v04-000 


CHECKPROT 
v04-000 


i 335 


Queue protection checks 


1367 1 END 
1368 0 ELUDOM 


PSECT SUMMARY 


Name Bytes 


COMMON 5 
CODE 


F 


eNOWRT, 


Library Statistics 


Symbols 
ile Total Loaded 


-$255$DUA28: CSYSLIBILIB.L32;1 18619 


Elapsed 
Lines/C 
nema 


come 


COMMAND QUALIFIERS 


312 code + 5024 data bytes 


0: 
ae 00:50.7 
PU Min: 5991 
/CPU-Min: 49703 
Used: 212 pages 
tion Complete 


43 


Attributes 


C. WRT, RD ,NOEXE,NOSHR, 
C RD 


EXE ,NOSHR, 


Percent. 
0 


LCL, REL, 
LCL. REL, 


Pages 
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CON,NOPIC,A 


Processing 
Time 
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